Parse Subroutine

private subroutine Parse(time, string)

Uses

Converts the specified string representation of a date and time to its DateTime equivalent.

Arguments

Type IntentOptional Attributes Name
type(DateTime), intent(out) :: time
character(len=timeStringLength), intent(in) :: string

Source Code

SUBROUTINE  Parse &
!
(time, string)

USE StringManipulation, ONLY : &
! Imported routines:
StringToShort

IMPLICIT NONE

! Arguments with intent(in):
CHARACTER (LEN = timeStringLength), INTENT(IN) :: string 


! Arguments with intent(out):
TYPE (DateTime), INTENT(OUT) :: time

!------------end of declaration------------------------------------------------
!1234567890123456789012345
!2007-03-05T01:00:00+02:00

time % year     = StringToShort ( string (1:4) )
time % month    = StringToShort ( string (6:7) )
time % day      = StringToShort ( string (9:10) )
time % hour     = StringToShort ( string (12:13) )
time % minute   = StringToShort ( string (15:16) )
time % second   = StringToShort ( string (18:19) )
time % TZhour   = StringToShort ( string (21:22) )
time % TZminute = StringToShort ( string (24:25) )
time % TZsign   = string (20:20) 
CALL DateCheck ( time )
END SUBROUTINE Parse